COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 Return the total wholine time
C00004 ENDMK
C⊗;
;;; Return the total wholine time

(lap ttime subr)
(args ttime (nil . 0))
(defsym ttime #o214)	;where wholine time is
(defsym fltr 127←26.)

	(calli t 30)	;gets jobnum in tt
	(movei tt ttime)
	(calli tt 33)	;get that table
	(add tt t)	;add jobnum
	(calli tt 33)	
	(jrst 0 fix1)	;return fixnum
()

(lap dtime subr)
(args dtime (nil . 0))
	(calli tt 22)
	(jrst 0 fix1)
()

(lap loadav subr)
(args loadav (nil . 0))
	(movei tt #o331)
	(calli tt 33)
	(hlrz d tt)
	(idivi d #o1000)
	(add d (+ d 1))
	(movei r 1)
	(lsh r 0 d)
	(hrrzs 0 tt)
	(calli tt 33)
	(127←27. tt tt)
	(127←27. r r)
	(fdv tt r)
	(jrst 0 float1)
()